home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs17.d81
/
cad401.sfx
/
O
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1990-02-12
|
1KB
|
44 lines
1 OPEN15,D0,15,"UI:":CLOSE15:SYS32786
2 X=168:Y=138:SF=8:A=USR(34),X,Y,0:GOTO9
3 X=X+USR(121)*SF:Y=Y-USR(122)*SF
4 IFX>320THENX=320
5 IFX<24THENX=24
6 IFY>226THENY=226
7 IFY<50THENY=50
8 A=USR(34),X,Y,0:A=USR(34),16,Y,6:A=USR(34),X,231,7:RETURN
9 A=USR(39),0,33:A=USR(32),0
10 GOSUB3
11 GETA$:IFA$=""THEN27
12 IFA$="[147]"THENGOSUB31
13 IFA$="!"THENSYS36867
14 IFA$="="THENSYS36882
15 IFA$="#"THENSYS36876
16 IFA$="&"THENSYS36879
17 IFA$="A"THENSYS32783
18 IFA$="O"THENSYS32786
19 IFA$="X"THENSYS32795
20 IFA$="P"THENSYS32777
21 IFA$="I"THENSYS32801
22 IFA$="H"THENSYS32804
23 IFA$="V"THENSYS32807
24 IFA$=CHR$(20)THENSYS36885
25 IFA$=CHR$(136)THEN36
26 IFA$=CHR$(140)THENA=USR(33),0:GOTO40
27 A=USR(117):IFA<>16THEN10
28 SYS36864:SYS32780
29 A=USR(117):IFA<>0THEN29
30 GOTO10
31 FORN=0TO62:READA:POKE18496+N,A:NEXT:RESTORE:RETURN
32 DATA224,0,7,128,0,1,128,0,1,128,0,1,128,0,1
33 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
34 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
35 DATA128,0,1,128,0,1,128,0,1,128,0,1,224,0,7
36 A=USR(39),0,16:FORT=0TO3:A=USR(33),T:NEXT:SYS36912
37 GETA$:IFA$=""THEN37
38 POKE780,ASC(A$):SYS32813
39 GOTO9
40 FI$="JJH[207]":SYS36864:DR=PEEK(36863):POKE36863,PEEK(36862):POKE183,LEN(FI$)
41 FORT=1TOLEN(FI$):POKE827+T,ASC(MID$(FI$,T,1)):NEXT:SYS32792
42 GETA$:IFA$=""THEN42
43 POKE36863,DR:SYS36885:GOTO9